home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Education / Library Hyper Card Templates / Open Stack / Home / card_5341.txt < prev    next >
Encoding:
Text File  |  1987-12-04  |  9.8 KB  |  502 lines
  1. -- card: 5341 from stack: in
  2. -- bmap block id: 2725
  3. -- flags: 4000
  4. -- background id: 2282
  5. -- name: Home
  6. ----- HyperTalk script -----
  7. on idle
  8.   put the time into card field "Time"
  9.   pass idle
  10. end idle
  11.  
  12. on startup
  13.   show card field "Copyright"
  14.   pass startup
  15. end startup
  16.  
  17. on closeCard
  18.   hide card field "Copyright"
  19.   pass closeCard
  20. end closeCard
  21.  
  22.  
  23.  
  24. -- part 3 (button)
  25. -- low flags: 00
  26. -- high flags: 0000
  27. -- rect: left=180 top=80 right=129 bottom=235
  28. -- title width / last selected line: 0
  29. -- icon id / first selected line: 0 / 0
  30. -- text alignment: 1
  31. -- font id: 0
  32. -- text size: 12
  33. -- style flags: 0
  34. -- line height: 16
  35. -- part name: Rolo
  36. ----- HyperTalk script -----
  37. on mouseUp
  38.   visual effect zoom open
  39.   go to stack "Address"
  40. end mouseUp
  41.  
  42.  
  43.  
  44. -- part 4 (button)
  45. -- low flags: 00
  46. -- high flags: 0000
  47. -- rect: left=330 top=80 right=129 bottom=392
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 0 / 0
  50. -- text alignment: 1
  51. -- font id: 0
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: File Index
  56. ----- HyperTalk script -----
  57. on mouseUp
  58.   visual effect zoom open
  59.   go to File Index
  60. end mouseUp
  61.  
  62.  
  63.  
  64. -- part 6 (button)
  65. -- low flags: 00
  66. -- high flags: 0000
  67. -- rect: left=31 top=144 right=189 bottom=80
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: Phone
  76. ----- HyperTalk script -----
  77. on mouseUp
  78.   visual effect iris open
  79.   go to Phone
  80. end mouseUp
  81.  
  82.  
  83.  
  84. -- part 8 (button)
  85. -- low flags: 00
  86. -- high flags: 0000
  87. -- rect: left=410 top=81 right=127 bottom=472
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 0 / 0
  90. -- text alignment: 1
  91. -- font id: 0
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: Book Shelf
  96. ----- HyperTalk script -----
  97. on mouseUp
  98.   visual effect zoom open
  99.   hide message box
  100.   go to Book Shelf
  101. end mouseUp
  102.  
  103.  
  104.  
  105. -- part 11 (button)
  106. -- low flags: 00
  107. -- high flags: 0000
  108. -- rect: left=416 top=140 right=187 bottom=472
  109. -- title width / last selected line: 0
  110. -- icon id / first selected line: 0 / 0
  111. -- text alignment: 1
  112. -- font id: 0
  113. -- text size: 12
  114. -- style flags: 0
  115. -- line height: 16
  116. -- part name: HyperCalc
  117. ----- HyperTalk script -----
  118. on mouseUp
  119.   visual effect zoom open
  120.   go to HyperCalc
  121. end mouseUp
  122.  
  123.  
  124.  
  125. -- part 12 (button)
  126. -- low flags: 00
  127. -- high flags: 0000
  128. -- rect: left=339 top=136 right=188 bottom=394
  129. -- title width / last selected line: 0
  130. -- icon id / first selected line: 0 / 0
  131. -- text alignment: 1
  132. -- font id: 0
  133. -- text size: 12
  134. -- style flags: 0
  135. -- line height: 16
  136. -- part name: Scanned Images
  137. ----- HyperTalk script -----
  138. on mouseUp
  139.   hide message box
  140.   visual effect zoom open
  141.   go to "Slide Show"
  142. end mouseUp
  143.  
  144.  
  145.  
  146. -- part 13 (button)
  147. -- low flags: 00
  148. -- high flags: 0000
  149. -- rect: left=109 top=140 right=187 bottom=155
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 0 / 0
  152. -- text alignment: 1
  153. -- font id: 0
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: To Do
  158. ----- HyperTalk script -----
  159. on mouseUp
  160.   visual effect zoom open
  161.   go to card "First Do" of "Datebook"
  162. end mouseUp
  163.  
  164.  
  165.  
  166. -- part 44 (button)
  167. -- low flags: 00
  168. -- high flags: 8000
  169. -- rect: left=346 top=203 right=251 bottom=405
  170. -- title width / last selected line: 0
  171. -- icon id / first selected line: 7012 / 7012
  172. -- text alignment: 1
  173. -- font id: 0
  174. -- text size: 12
  175. -- style flags: 0
  176. -- line height: 16
  177. -- part name: Stack Ideas
  178. ----- HyperTalk script -----
  179. on mouseUp
  180.   visual effect zoom open
  181.   go to stack "Stack Ideas"
  182. end mouseUp
  183.  
  184.  
  185.  
  186.  
  187. -- part 45 (button)
  188. -- low flags: 00
  189. -- high flags: 8000
  190. -- rect: left=97 top=262 right=308 bottom=151
  191. -- title width / last selected line: 0
  192. -- icon id / first selected line: 18814 / 18814
  193. -- text alignment: 1
  194. -- font id: 0
  195. -- text size: 12
  196. -- style flags: 0
  197. -- line height: 16
  198. -- part name: Card Ideas
  199. ----- HyperTalk script -----
  200. on mouseUp
  201.   visual effect zoom open
  202.   go to stack "Card Ideas"
  203. end mouseUp
  204.  
  205.  
  206.  
  207.  
  208. -- part 46 (button)
  209. -- low flags: 00
  210. -- high flags: 8000
  211. -- rect: left=32 top=204 right=250 bottom=81
  212. -- title width / last selected line: 0
  213. -- icon id / first selected line: 26884 / 26884
  214. -- text alignment: 1
  215. -- font id: 0
  216. -- text size: 12
  217. -- style flags: 0
  218. -- line height: 16
  219. -- part name: Art Ideas
  220. ----- HyperTalk script -----
  221. on mouseUp
  222.   visual effect zoom open
  223.   go to stack "Art Ideas"
  224. end mouseUp
  225.  
  226.  
  227.  
  228. -- part 47 (button)
  229. -- low flags: 00
  230. -- high flags: 8000
  231. -- rect: left=160 top=262 right=309 bottom=221
  232. -- title width / last selected line: 0
  233. -- icon id / first selected line: 27056 / 27056
  234. -- text alignment: 1
  235. -- font id: 0
  236. -- text size: 12
  237. -- style flags: 0
  238. -- line height: 16
  239. -- part name: Button Ideas
  240. ----- HyperTalk script -----
  241. on mouseUp
  242.   visual effect zoom open
  243.   go to "Button Ideas"
  244. end mouseUp
  245.  
  246.  
  247.  
  248.  
  249. -- part 48 (button)
  250. -- low flags: 00
  251. -- high flags: 0000
  252. -- rect: left=102 top=200 right=253 bottom=160
  253. -- title width / last selected line: 0
  254. -- icon id / first selected line: 0 / 0
  255. -- text alignment: 1
  256. -- font id: 0
  257. -- text size: 12
  258. -- style flags: 0
  259. -- line height: 16
  260. -- part name: Clip Art
  261. ----- HyperTalk script -----
  262. on mouseUp
  263.   visual effect zoom open
  264.   go to Clip Art
  265. end mouseUp
  266.  
  267.  
  268.  
  269. -- part 62 (button)
  270. -- low flags: 00
  271. -- high flags: 0000
  272. -- rect: left=261 top=72 right=130 bottom=314
  273. -- title width / last selected line: 0
  274. -- icon id / first selected line: 0 / 0
  275. -- text alignment: 1
  276. -- font id: 0
  277. -- text size: 12
  278. -- style flags: 0
  279. -- line height: 16
  280. -- part name: 
  281. ----- HyperTalk script -----
  282. on mouseUp
  283.   visual effect zoom open
  284.   go to card "About" of stack "documents"
  285. end mouseUp
  286.  
  287.  
  288.  
  289.  
  290. -- part 63 (button)
  291. -- low flags: 00
  292. -- high flags: 0000
  293. -- rect: left=106 top=80 right=129 bottom=155
  294. -- title width / last selected line: 0
  295. -- icon id / first selected line: 0 / 0
  296. -- text alignment: 1
  297. -- font id: 0
  298. -- text size: 12
  299. -- style flags: 0
  300. -- line height: 16
  301. -- part name: 
  302. ----- HyperTalk script -----
  303. on mouseUp
  304.   visual effect zoom open
  305.   go to stack "Help"
  306. end mouseUp
  307.  
  308.  
  309.  
  310.  
  311. -- part 65 (field)
  312. -- low flags: 01
  313. -- high flags: 0000
  314. -- rect: left=405 top=305 right=325 bottom=485
  315. -- title width / last selected line: 0
  316. -- icon id / first selected line: 0 / 0
  317. -- text alignment: 1
  318. -- font id: 3
  319. -- text size: 12
  320. -- style flags: 0
  321. -- line height: 16
  322. -- part name: Time
  323.  
  324.  
  325. -- part 68 (button)
  326. -- low flags: 00
  327. -- high flags: 0000
  328. -- rect: left=415 top=203 right=250 bottom=472
  329. -- title width / last selected line: 0
  330. -- icon id / first selected line: 0 / 0
  331. -- text alignment: 1
  332. -- font id: 0
  333. -- text size: 12
  334. -- style flags: 0
  335. -- line height: 16
  336. -- part name: 
  337. ----- HyperTalk script -----
  338. on mouseUp
  339.   visual effect zoom open
  340.   go to stack "Quotations"
  341. end mouseUp
  342.  
  343.  
  344.  
  345. -- part 69 (button)
  346. -- low flags: 00
  347. -- high flags: 0000
  348. -- rect: left=32 top=72 right=129 bottom=78
  349. -- title width / last selected line: 0
  350. -- icon id / first selected line: 0 / 0
  351. -- text alignment: 1
  352. -- font id: 0
  353. -- text size: 12
  354. -- style flags: 0
  355. -- line height: 16
  356. -- part name: 
  357. ----- HyperTalk script -----
  358. on mouseUp
  359.   visual effect zoom open
  360.   go to card "Introduction" of stack "Help"
  361. end mouseUp
  362.  
  363.  
  364.  
  365. -- part 70 (button)
  366. -- low flags: 00
  367. -- high flags: 0000
  368. -- rect: left=29 top=261 right=311 bottom=86
  369. -- title width / last selected line: 0
  370. -- icon id / first selected line: 0 / 0
  371. -- text alignment: 1
  372. -- font id: 0
  373. -- text size: 12
  374. -- style flags: 0
  375. -- line height: 16
  376. -- part name: 
  377. ----- HyperTalk script -----
  378. on mouseUp
  379.   visual effect zoom open
  380.   go to stack "Plots"
  381. end mouseUp
  382.  
  383.  
  384.  
  385. -- part 76 (field)
  386. -- low flags: 80
  387. -- high flags: 0000
  388. -- rect: left=16 top=310 right=326 bottom=207
  389. -- title width / last selected line: 0
  390. -- icon id / first selected line: 0 / 0
  391. -- text alignment: 1
  392. -- font id: 3
  393. -- text size: 9
  394. -- style flags: 0
  395. -- line height: 12
  396. -- part name: Copyright
  397.  
  398.  
  399. -- part 77 (button)
  400. -- low flags: 00
  401. -- high flags: 0000
  402. -- rect: left=331 top=261 right=310 bottom=383
  403. -- title width / last selected line: 0
  404. -- icon id / first selected line: 0 / 0
  405. -- text alignment: 1
  406. -- font id: 0
  407. -- text size: 12
  408. -- style flags: 0
  409. -- line height: 16
  410. -- part name: Daily
  411. ----- HyperTalk script -----
  412. on mouseUp
  413.   set lockScreen to true
  414.   go stack "DateBook"
  415.   goWeekly the seconds
  416.   set lockScreen to false
  417. end mouseUp
  418.  
  419.  
  420.  
  421.  
  422. -- part 78 (button)
  423. -- low flags: 00
  424. -- high flags: 0000
  425. -- rect: left=401 top=263 right=310 bottom=456
  426. -- title width / last selected line: 0
  427. -- icon id / first selected line: 0 / 0
  428. -- text alignment: 1
  429. -- font id: 0
  430. -- text size: 12
  431. -- style flags: 0
  432. -- line height: 16
  433. -- part name: Months
  434. ----- HyperTalk script -----
  435. on mouseUp
  436.   get the seconds
  437.   convert it to dateItems
  438.   put ((item 1 of it) - 1987) *2 into whichSix
  439.   if item 2 of it > 6 then add 1 to whichSix
  440.   visual effect zoom open
  441.   if whichSix < 1 then go card 1 of stack "DateBook"
  442.   else if whichSix > 5 then go card 5 of stack "DateBook"
  443.   else
  444.     go to card whichSix of stack "DateBook"
  445.     send "bracketWeek" && the seconds to this card
  446.   end if
  447. end mouseUp
  448.  
  449.  
  450.  
  451. -- part 79 (button)
  452. -- low flags: 00
  453. -- high flags: 0000
  454. -- rect: left=173 top=161 right=224 bottom=335
  455. -- title width / last selected line: 0
  456. -- icon id / first selected line: 0 / 0
  457. -- text alignment: 1
  458. -- font id: 0
  459. -- text size: 12
  460. -- style flags: 0
  461. -- line height: 16
  462. -- part name: Library System
  463. ----- HyperTalk script -----
  464. on mouseUp
  465.   go to card id 2919 of stack "IntroCard"
  466. end mouseUp
  467.  
  468.  
  469.  
  470. -- part 80 (field)
  471. -- low flags: 01
  472. -- high flags: 0000
  473. -- rect: left=213 top=195 right=208 bottom=273
  474. -- title width / last selected line: 0
  475. -- icon id / first selected line: 0 / 0
  476. -- text alignment: 0
  477. -- font id: 20
  478. -- text size: 10
  479. -- style flags: 0
  480. -- line height: 13
  481. -- part name: 
  482. ----- HyperTalk script -----
  483. on mouseUp
  484.   send mouseUp to button "Library System"
  485. end mouseUp
  486.  
  487.  
  488. -- part contents for background part 6
  489. ----- text -----
  490. Home Card
  491.  
  492. -- part contents for card part 65
  493. ----- text -----
  494. 14:10
  495.  
  496. -- part contents for card part 76
  497. ----- text -----
  498. Copyright ¬©1987 Apple Computer, Inc.
  499.  
  500. -- part contents for card part 80
  501. ----- text -----
  502. Open Stack‚Ñ¢